Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  832 1862 (N41E50 L=346)  1819    176        2 ( 771/1801- 880/1897) -14.7 E60-E41 N36-N43
      2  426 1628 (N13E62 L=335)  2104    268        3 ( 375/1522- 478/1750) -54.8 E71-E56 N06-N23
      3 1207 1608 (N33E07 L= 29)   760    133        1 (1178/1551-1236/1673) -48.8 E11-E04 N29-N37
      4  349 1618 (N12E71 L=326)   672     71        2 ( 333/1584- 366/1655) -35.5 E74-E66 N09-N14
      5  459 1528 (N08E52 L=345)  2256    333        0 ( 348/1448- 587/1619)  56.3 E58-E46 N01-N16
      6 1545 1485 (N37W20 L= 56)   292     32        0 (1528/1458-1564/1506)  76.0 W18-W21 N35-N39
      7  247 1158 (S18E57 L=339)   872    112        2 ( 191/1119- 288/1193)  26.6 E63-E52 S20-S14
      8 1788 1005 (N16W50 L= 86)   409    108        1 (1771/ 943-1802/1053) -74.1 W47-W51 N12-N19
      9  570  858 (S28E23 L= 13)   971    205        3 ( 483/ 804- 662/ 917)  42.3 E29-E17 S33-S22
     10 1388  629 (S17W34 L= 70)  1343    276        4 (1280/ 564-1491/ 714)  66.8 W29-W37 S23-S09
     11 1083  664 (S24W14 L= 51)   277    113        0 (1023/ 654-1136/ 674)  33.7 W11-W17 S26-S22
     12  866  632 (S33W03 L= 39)   479    137        0 ( 798/ 613- 930/ 654)  35.5 E01-W06 S35-S30
     13  935  483 (S40W13 L= 50)  1597    330        0 ( 806/ 414-1071/ 563)  60.9 W06-W18 S48-S30
     14 1208  196 (S47W58 L= 94)   596     64        2 (1188/ 159-1230/ 235) -14.0 W50-W66 S49-S45
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y