Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1204 1574 (N39W10 L=306)  7333   1347        8 ( 633/1398-1769/1747)  -8.3 E44-W59 N29-N48
      2  713 1193 (N10E21 L=275)  1819    435        3 ( 686/1005- 763/1399) -80.5 E24-E18 S01-N23
      3  412 1349 (N18E46 L=250)   707    152        3 ( 344/1300- 459/1398)  36.9 E50-E41 N13-N20
      4 1551 1289 (N21W35 L=330)   489    133        0 (1512/1235-1571/1353)  58.0 W31-W36 N17-N25
      5  177 1222 (N08E68 L=228)  2895    302        5 ( 154/1081- 202/1352) -76.0 E79-E63 S01-N15
      6 1472 1301 (N22W29 L=324)   265     69        0 (1453/1269-1497/1334) -53.1 W27-W30 N19-N23
      7  274 1224 (N09E56 L=240)   800    138        1 ( 255/1167- 303/1285) -81.9 E58-E51 N05-N12
      8  322  796 (S17E49 L=247)  1424    372        1 ( 293/ 622- 350/ 958)  72.3 E54-E45 S28-S06
      9  910  716 (S18E05 L=291)   385    155        0 ( 841/ 691- 985/ 757) -18.4 E09-W00 S18-S15
     10 1558  560 (S24W42 L=338)  3582    533        5 (1326/ 455-1751/ 669)  28.1 W25-W57 S32-S16
     11  704  633 (S25E19 L=277)   422    103        0 ( 658/ 605- 753/ 660)  29.7 E22-E15 S26-S22
     12  488  509 (S35E39 L=257)   345     51        0 ( 455/ 495- 516/ 526)  15.9 E42-E35 S36-S33
     13 1183  415 (S37W17 L=313)   415     87        0 (1136/ 399-1224/ 435)  18.4 W13-W19 S38-S35
  

    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