Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1634 1596 (N19W60 L=175)  2355    317        4 (1582/1462-1712/1682)  19.1 W49-W78 N11-N22
      2 1184 1605 (N33W28 L=143)   335     92        1 (1138/1583-1228/1620) -26.6 W24-W30 N30-N34
      3 1168 1495 (N27W22 L=137)   737    201        1 (1104/1418-1246/1534)   4.8 W15-W27 N23-N28
      4 1259 1338 (N15W21 L=137)   433    206        2 (1172/1276-1322/1404) -63.4 W18-W23 N10-N21
      5  937 1308 (N22W02 L=117)   340    122        0 ( 906/1267- 972/1369) -90.0 W00-W03 N18-N26
      6  713 1190 (N20E14 L=101)  1180    340        3 ( 635/1104- 857/1282) -56.3 E17-E06 N12-N27
      7 1885 1212 (S09W65 L=180)   989    103        2 (1867/1171-1915/1261) -71.6 W62-W68 S11-S05
      8 1603 1098 (S07W36 L=151)  1876    401        3 (1537/ 902-1659/1250)  60.9 W28-W40 S16-N02
      9  429 1174 (N26E34 L= 81)  1885    453        6 ( 241/1069- 613/1245) -26.6 E52-E22 N16-N32
     10 1836 1134 (S11W56 L=172)   959    130        4 (1802/1066-1860/1194)  66.8 W54-W58 S14-S07
     11 1924 1083 (S17W67 L=182)  2758    211        7 (1854/ 993-1976/1166)  12.3 W55-W80 S20-S13
     12 1868 1068 (S16W58 L=174)   477     72        0 (1837/1041-1898/1097)   6.3 W54-W63 S17-S14
     13  343 1023 (N19E43 L= 72)   283     63        1 ( 316/1008- 379/1044) -31.0 E45-E40 N17-N20
     14  624  845 (N03E27 L= 88)   543    212        1 ( 579/ 785- 708/ 931) -66.0 E28-E23 S01-N08
     15 1662  775 (S27W34 L=150)  2421    487        4 (1442/ 633-1830/ 880)   4.8 W15-W51 S29-S23
     16 1398  777 (S19W15 L=131)  1042    262        3 (1295/ 726-1522/ 834)   0.0 W08-W24 S20-S17
     17  262  753 (N05E57 L= 58)   324     29        2 ( 240/ 735- 287/ 770)   0.0 E59-E54 N04-N06
     18  773  713 (S07E22 L= 93)   320    116        2 ( 719/ 686- 833/ 743) -33.7 E24-E18 S09-S04
     19  288  551 (S07E65 L= 51)  6061      0       15 ( 197/ 423- 362/ 689)  55.5 E75-E55 S15-N01
     20  396  561 (S08E53 L= 62)   540     96        1 ( 370/ 516- 416/ 614)  71.6 E54-E50 S10-S04
     21  437  486 (S13E53 L= 62)  1138    175        8 ( 383/ 412- 489/ 572)  55.0 E58-E48 S18-S08
     22  509  279 (S28E65 L= 50)   579     71        1 ( 481/ 265- 540/ 312)   0.0 E70-E60 S29-S25
  

    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