Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1100 1766 (N45E05 L=259)  1292    224        0 ( 977/1731-1199/1800)  -6.0 E15-W04 N43-N47
      2 1563 1628 (N42W36 L=300)   503     91        1 (1517/1598-1600/1647) -14.0 W31-W40 N39-N42
      3  837 1464 (N19E17 L=247)  1035    272        0 ( 743/1370- 936/1547) -31.0 E24-E09 N14-N24
      4  258 1499 (N18E67 L=197)  1062     96        0 ( 237/1467- 295/1546) -22.6 E73-E60 N16-N21
      5 1376 1499 (N28W18 L=282)   285     71        1 (1334/1474-1402/1520)   0.0 W15-W20 N26-N29
      6 1302 1456 (N24W13 L=277)   330     89        0 (1262/1426-1341/1488) -31.0 W10-W15 N22-N26
      7 1523 1425 (N25W29 L=293)   382     41        0 (1500/1395-1550/1456) -53.1 W27-W31 N23-N27
      8 1591 1339 (N21W34 L=298)   937    249        1 (1552/1233-1629/1450)  75.1 W31-W37 N13-N28
      9 1716 1222 (N15W44 L=308)   681    167        0 (1670/1146-1759/1292) -41.2 W40-W48 N11-N19
     10  113 1047 (S10E73 L=191)   826    104        0 (  79/1004- 153/1087)  14.9 E82-E66 S11-S07
     11 1209  847 (S14W13 L=277)   205     63        0 (1196/ 817-1229/ 884) -63.4 W12-W14 S15-S11
     12  245  739 (S29E59 L=205)  1016    138        0 ( 221/ 669- 281/ 804)  39.3 E64-E52 S33-S24
     13 1581  743 (S15W40 L=304)   277     82        0 (1536/ 730-1624/ 755)   8.1 W36-W43 S15-S14
     14 1772  680 (S15W60 L=324)  2291    197        6 (1696/ 618-1842/ 741)  -5.7 W50-W70 S18-S12
     15 1012  630 (S29W04 L=268)  1267    348        2 ( 891/ 519-1141/ 729)  50.9 E03-W10 S38-S21
  

    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