Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  501 1712 (N33E51 L=197)  1094    227        3 ( 475/1669- 537/1762) -53.1 E56-E46 N29-N37
      2 1311 1438 (N23W13 L=261)   669    165        1 (1253/1385-1357/1481)   8.1 W09-W16 N19-N26
      3  259 1354 (N07E59 L=189)  2240    311        2 ( 176/1299- 354/1387)  11.9 E68-E49 N03-N09
      4 1184 1302 (N13W06 L=254)   236     51        1 (1157/1277-1210/1324)  45.0 W04-W07 N11-N14
      5 1548 1221 (N13W30 L=279)  1263    257        6 (1474/1102-1592/1315) -54.0 W24-W33 N06-N18
      6  359 1190 (S02E46 L=203)   357     87        0 ( 337/1155- 386/1235) -45.0 E48-E43 S04-N00
      7  244 1066 (S10E55 L=194)   669    219        1 ( 200/ 971- 297/1128)  51.3 E58-E50 S16-S06
      8 1917  947 (N04W69 L=317)  1180    302        6 (1870/ 893-1959/ 995)  35.0 W62-W76 N00-N07
      9  744  936 (S14E16 L=232)   270    113        1 ( 686/ 894- 786/ 958) -26.6 E19-E12 S16-S13
     10  667  787 (S24E20 L=228)   242     99        0 ( 652/ 738- 681/ 845)  81.9 E21-E19 S27-S20
     11  865  740 (S25E07 L=242)   246    112        0 ( 815/ 703- 897/ 790)  56.3 E09-E04 S27-S21
     12 1582  743 (S14W40 L=289)   795    248        1 (1466/ 694-1681/ 787)  29.7 W32-W47 S18-S10
     13  789  408 (S49E10 L=239)   256     66        0 ( 759/ 374- 811/ 443) -51.3 E12-E07 S51-S46
     14  861  209 (S66W01 L=249)   445     43        1 ( 832/ 193- 890/ 228)   0.0 E03-W05 S67-S64
  

    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