Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  815 1598 (N47W02 L=162)   391     89        0 ( 775/1561- 853/1632)  23.2 E01-W06 N45-N48
      2  858 1326 (N28E03 L=157)   478    107        0 ( 807/1288- 902/1366)  15.9 E06-W01 N27-N29
      3 1090 1208 (N16W08 L=168)   607    292        0 ( 970/1161-1226/1244) -14.0 W00-W16 N12-N17
      4 1807 1138 (S08W54 L=214)  1118    162        2 (1784/1077-1838/1209)  82.9 W51-W59 S11-S03
      5 1696 1097 (S06W43 L=203)   819    232        0 (1673/1008-1718/1204)  70.0 W40-W46 S11-N00
      6  560 1145 (N24E26 L=133)   702    152        1 ( 488/1105- 628/1183)   0.0 E32-E21 N22-N25
      7 1767  946 (S17W46 L=206)  2867    626        3 (1584/ 718-1896/1138)  22.6 W27-W64 S25-S10
      8  312 1086 (N25E48 L=112)   377     69        2 ( 277/1055- 344/1113)  15.9 E51-E44 N23-N26
      9 1191 1038 (N04W10 L=169)   243     71        0 (1158/1015-1228/1056)   0.0 W07-W12 N03-N04
     10  297  963 (N18E50 L=109)   412    101        1 ( 254/ 926- 323/ 995) -39.8 E54-E47 N15-N20
     11  159  879 (N15E69 L= 91)   498     43        1 ( 137/ 859- 184/ 899)  -7.1 E72-E64 N13-N15
     12 1350  821 (S12W14 L=173)   344     61        0 (1317/ 793-1380/ 847) -53.1 W12-W15 S14-S09
     13 1268  793 (S12W08 L=168)   278     46        1 (1246/ 769-1293/ 818)   0.0 W07-W10 S13-S10
     14 1231  685 (S17W04 L=163)  1211    323        0 (1114/ 617-1383/ 715)  -6.7 E04-W13 S20-S14
     15  405  569 (S07E52 L=107)  1080    266        2 ( 303/ 497- 495/ 669) -42.3 E58-E46 S12-N00
     16 1370  528 (S31W09 L=168)   398    151        0 (1305/ 484-1429/ 561)  11.3 W03-W13 S32-S30
     17  600  504 (S14E40 L=119)   261     43        0 ( 578/ 482- 618/ 534)  26.6 E41-E37 S15-S12
     18 1018  466 (S26E15 L=144)   536    118        1 ( 961/ 421-1054/ 488) -51.3 E18-E12 S29-S23
     19  488  431 (S17E53 L=107)  1227    146        3 ( 455/ 380- 531/ 485)  74.1 E56-E48 S20-S13
     20  855  450 (S23E25 L=134)   251     35        1 ( 836/ 424- 872/ 472) -90.0 E26-E24 S24-S21
     21  673  373 (S24E41 L=118)  1044    235        1 ( 638/ 271- 723/ 463)  33.7 E51-E33 S31-S18
     22 1009  322 (S36E22 L=138)   534    162        0 ( 958/ 279-1064/ 381)  22.6 E27-E15 S38-S32
     23 1283  329 (S44E02 L=157)   502     95        1 (1241/ 304-1319/ 357) -56.3 E04-W00 S47-S40
     24  932  151 (S49E43 L=117)   713     53        2 ( 911/ 123- 958/ 183)  54.5 E48-E37 S53-S45
  

    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