Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1518 1653 (N40W52 L=310)   489     39        2 (1491/1627-1543/1674)  -9.5 W48-W55 N38-N41
      2 1066 1600 (N42W09 L=267)   757    189        0 ( 971/1578-1150/1615)  -8.1 W01-W15 N39-N43
      3 1336 1558 (N36W29 L=287)   381    113        1 (1276/1541-1385/1576)   0.0 W24-W33 N34-N37
      4 1206 1352 (N24W15 L=273)   676    277        2 (1091/1283-1310/1410) -34.7 W07-W20 N18-N28
      5  233 1353 (N29E65 L=193)  1012    101        3 ( 204/1312- 269/1401) -21.0 E73-E58 N26-N31
      6 1748 1233 (N10W53 L=311)  1232    243        1 (1671/1142-1802/1288) -51.3 W46-W57 N04-N14
      7 1172 1128 (N10W10 L=268)   338     89        2 (1148/1085-1211/1156)  36.9 W08-W12 N07-N11
      8  461 1105 (N13E37 L=221)   250     77        0 ( 446/1068- 477/1150) -68.2 E38-E35 N10-N15
      9  654 1104 (N12E23 L=235)   562    228        1 ( 553/1052- 740/1142) -26.6 E29-E17 N08-N14
     10  831  928 (N01E12 L=245)   240     77        0 ( 810/ 891- 851/ 969) -76.0 E13-E11 S01-N03
     11 1046  859 (S05W00 L=258)   289    102        1 (1033/ 809-1062/ 913)  80.5 W00-W01 S08-S01
     12  260  760 (S08E58 L=200)   907    100        2 ( 224/ 718- 294/ 807) -50.2 E61-E54 S10-S04
     13  310  674 (S13E55 L=203)   408     84        0 ( 282/ 655- 346/ 693)   0.0 E58-E51 S14-S12
     14  923  622 (S19E10 L=248)   326     52        1 ( 906/ 589- 951/ 658)  78.7 E10-E07 S21-S16
     15  341  587 (S19E55 L=203)   585     60        1 ( 312/ 554- 369/ 616)  76.0 E57-E52 S21-S17
     16 1749  554 (S33W57 L=315)   549     47        0 (1727/ 526-1766/ 580) -39.8 W53-W61 S35-S30
     17 1337  339 (S45W20 L=278)   472     60        1 (1318/ 310-1357/ 376)  90.0 W18-W22 S47-S41
     18 1137  288 (S47W02 L=260)  1440    253        4 (1020/ 256-1251/ 323)   0.0 E08-W12 S49-S44
     19  878  218 (S52E24 L=234)  1385    177        2 ( 797/ 197- 959/ 253) -11.3 E33-E15 S54-S48
  

    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