Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1151 1559 (N30W09 L=  3)   768    177        1 (1064/1497-1236/1619) -36.0 W02-W14 N26-N34
      2  387 1366 (N18E44 L=310)   603    120        0 ( 366/1312- 404/1420) -60.3 E46-E41 N14-N21
      3 1816 1324 (N17W58 L= 52)   524     85        0 (1781/1304-1845/1339) -18.4 W54-W61 N15-N17
      4  261 1230 (N10E53 L=301)   610    158        0 ( 216/1213- 316/1250) -11.3 E58-E48 N09-N11
      5  525 1187 (N07E32 L=323)   268     71        0 ( 503/1142- 547/1227)  71.6 E32-E30 N03-N09
      6  830 1095 (N01E12 L=343)   291     64        1 ( 790/1075- 859/1112)   0.0 E14-E09 N00-N01
      7  823  902 (S11E12 L=342)   544    185        0 ( 796/ 801- 857/ 994)  70.0 E14-E10 S16-S05
      8 1254  972 (S06W14 L=  8)   211     55        0 (1221/ 957-1283/ 989)   0.0 W11-W15 S07-S05
      9  517  876 (S12E33 L=322)   416    127        0 ( 486/ 812- 539/ 944) -69.4 E34-E31 S15-S07
     10  292  702 (S22E53 L=301)  1704    340        3 ( 251/ 598- 320/ 870)  62.1 E60-E48 S28-S11
     11 1251  839 (S14W14 L=  8)   200     72        0 (1207/ 825-1285/ 852) -11.3 W11-W16 S15-S13
     12 1737  803 (S15W50 L= 44)   508    144        0 (1678/ 788-1789/ 819)  -5.7 W44-W54 S16-S14
     13  552  662 (S25E32 L=322)   547     93        1 ( 533/ 613- 574/ 714)  66.8 E34-E30 S28-S21
     14 1132  633 (S27W07 L=  2)   421     94        0 (1101/ 585-1156/ 678) -71.6 W05-W08 S30-S24
     15  492  504 (S36E41 L=313)   421     74        0 ( 472/ 468- 516/ 536) -90.0 E43-E38 S38-S33
  

    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