Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1168 1671 (N45W26 L=235)   867    160        1 (1110/1634-1246/1703) -48.8 W21-W30 N40-N48
      2  647 1581 (N48E22 L=187)  1789    417        4 ( 483/1490- 819/1643) -18.9 E42-E07 N38-N53
      3 1609 1538 (N27W55 L=264)   752     88        2 (1558/1506-1637/1577)   0.0 W49-W59 N24-N28
      4 1127 1506 (N34W16 L=225)  1380    343        2 ( 982/1477-1288/1526) -12.8 W04-W26 N30-N37
      5 1768 1428 (N16W65 L=274)  1425    120        2 (1716/1377-1804/1464) -50.2 W60-W70 N12-N19
      6  560 1398 (N36E29 L=180)   293     82        0 ( 523/1385- 601/1412) -18.4 E31-E25 N34-N36
      7 1782 1268 (N07W58 L=268)   388     36        1 (1756/1249-1802/1290) -21.8 W55-W60 N05-N08
      8  718 1250 (N24E17 L=192)   199     69        1 ( 692/1232- 756/1271) -36.9 E18-E14 N22-N25
      9  318 1033 (N15E49 L=160)   754    243        2 ( 265/ 941- 362/1137) -55.3 E54-E45 N08-N21
     10  517 1015 (N12E33 L=176)   397    129        1 ( 471/ 987- 573/1035)   7.1 E36-E28 N10-N12
     11  216  851 (N04E62 L=147)  1049    216        2 ( 193/ 775- 243/ 929)  82.9 E66-E58 N00-N08
     12  162  831 (N03E71 L=138)  1553    199        1 ( 127/ 753- 187/ 908) -83.7 E76-E65 S02-N07
     13 1301  681 (S19W12 L=221)  2307    491        7 (1215/ 578-1427/ 882)  63.4 W05-W20 S26-S06
     14  798  864 (S00E16 L=193)   310     66        1 ( 765/ 842- 832/ 881) -26.6 E17-E13 S01-N01
     15 1144  823 (S08W04 L=213)   281     92        0 (1113/ 793-1169/ 867)  36.9 W02-W06 S09-S05
     16  400  801 (S00E45 L=164)   864    232        2 ( 292/ 758- 495/ 838) -18.4 E54-E37 S03-N02
     17 1104  741 (S12W01 L=210)   249     76        0 (1071/ 724-1143/ 761)   0.0 E01-W03 S12-S10
     18 1189  704 (S16W06 L=215)   296    106        0 (1141/ 680-1232/ 744)  26.6 W02-W08 S16-S13
     19 1564  719 (S21W31 L=240)   472     93        1 (1519/ 693-1605/ 742)   8.1 W27-W34 S22-S20
     20 1615  658 (S27W36 L=245)   368    123        2 (1573/ 620-1641/ 701)  38.7 W32-W38 S28-S23
     21  536  646 (S11E38 L=171)   731    233        3 ( 428/ 616- 600/ 694)   7.6 E46-E31 S13-S08
     22  438  587 (S14E47 L=162)   408    158        0 ( 380/ 553- 490/ 632) -40.6 E51-E43 S16-S10
     23  721  404 (S29E32 L=177)   503    101        0 ( 694/ 359- 749/ 449)  36.9 E36-E28 S32-S26
  

    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