Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1593 1522 (N18W52 L= 15)   812    123        1 (1523/1490-1641/1549) -45.0 W47-W56 N14-N20
      2 1361 1239 (N10W25 L=347)   203     82        1 (1316/1221-1383/1271)   0.0 W21-W26 N08-N11
      3  607 1205 (N28E21 L=301)   700    193        0 ( 531/1128- 678/1265) -54.0 E26-E17 N21-N32
      4 1259 1240 (N13W19 L=341)   192     39        1 (1236/1219-1282/1260) -71.6 W18-W20 N11-N14
      5  170 1043 (N26E61 L=261)   434     94        1 ( 144/1016- 196/1066) -31.0 E63-E58 N24-N27
      6  233  934 (N19E56 L=266)   388     94        2 ( 215/ 902- 254/ 979)  78.7 E58-E54 N16-N21
      7  419  875 (N12E41 L=281)  1058    276        1 ( 301/ 841- 555/ 917) -20.2 E51-E32 N07-N15
      8 1143  875 (S04W03 L=325)   526    191        1 (1089/ 801-1220/ 915)  23.2 W00-W07 S07-S02
      9 1313  808 (S13W11 L=333)   227    119        2 (1249/ 790-1367/ 826) -39.8 W07-W14 S14-S09
     10 1339  656 (S22W09 L=331)   303     71        1 (1304/ 632-1374/ 688)  11.3 W06-W11 S23-S21
     11  971  597 (S16E14 L=308)   589    131        4 ( 928/ 558-1017/ 645) -74.1 E16-E12 S19-S12
     12  421  522 (S09E54 L=268)   677     93        3 ( 384/ 490- 462/ 563) -59.0 E56-E50 S10-S05
     13  860  396 (S26E29 L=294)   271     54        0 ( 827/ 385- 893/ 410) -14.0 E30-E26 S27-S24
     14  523  297 (S26E59 L=263)  1288    218        1 ( 501/ 252- 553/ 340)  35.0 E64-E54 S29-S22
  

    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