Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  524 1732 (N71E34 L=108)   669     56        1 ( 494/1701- 551/1756) -20.9 E49-E25 N67-N75
      2 1457 1560 (N24W46 L=187)   375    112        0 (1436/1522-1481/1609)  33.7 W43-W50 N21-N27
      3 1653 1493 (N14W57 L=199)   917    130        2 (1613/1456-1708/1545)  81.9 W53-W61 N10-N17
      4 1299 1344 (N18W25 L=167)   399    152        1 (1224/1307-1357/1374) -49.4 W21-W27 N13-N20
      5  230 1276 (N40E60 L= 82)   586     51        2 ( 204/1250- 259/1300) -20.0 E65-E54 N37-N41
      6  565 1178 (N27E25 L=116)   378     97        1 ( 536/1150- 613/1215) -51.3 E26-E22 N24-N29
      7 1875 1155 (S11W64 L=206)   714    101        2 (1847/1109-1905/1206) -71.6 W62-W68 S13-S07
      8  227  938 (N19E59 L= 82)  1264    214        2 ( 168/ 857- 270/ 996) -77.5 E67-E55 N13-N22
      9  351  866 (N13E48 L= 94)   584    120        0 ( 296/ 847- 415/ 889) -16.7 E52-E42 N10-N14
     10  573  824 (N06E32 L=110)   647    157        3 ( 524/ 762- 645/ 863) -35.5 E35-E26 N02-N09
     11  840  794 (S01E16 L=125)   326     51        1 ( 812/ 765- 871/ 818) -33.7 E17-E14 S03-N00
     12  682  589 (S10E32 L=110)   370     91        2 ( 652/ 549- 719/ 621)  15.9 E35-E28 S11-S08
     13  523  532 (S10E45 L= 96)   349     36        0 ( 504/ 509- 545/ 559)  45.0 E47-E43 S11-S08
     14 1330  487 (S34W04 L=146)   543     92        1 (1293/ 458-1363/ 520) -36.9 W01-W06 S36-S30
     15  352  479 (S11E65 L= 77)  1627    218        4 ( 305/ 425- 406/ 516) -26.6 E76-E59 S14-S08
  

    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