Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  925 1883 (N64W34 L= 36)   449     32        1 ( 908/1856- 939/1909)  35.0 W29-W41 N60-N67
      2  814 1834 (N64W16 L= 18)   470     69        2 ( 787/1808- 835/1858)   7.1 W11-W19 N60-N66
      3 1191 1760 (N43W39 L= 41)   640    105        0 (1163/1717-1220/1804)  26.6 W33-W43 N40-N46
      4  952 1756 (N51W21 L= 23)   495     83        1 ( 909/1740-1000/1774) -33.7 W16-W24 N48-N53
      5 1481 1652 (N28W52 L= 54)   653    110        1 (1428/1624-1533/1689) -66.8 W49-W55 N24-N31
      6 1209 1633 (N34W31 L= 33)   266    110        0 (1170/1588-1250/1665) -81.9 W29-W31 N30-N37
      7 1365 1556 (N25W37 L= 39)   287     79        0 (1322/1532-1400/1569) -36.9 W34-W38 N23-N26
      8 1588 1480 (N15W49 L= 51)   444     67        1 (1551/1450-1610/1509)   0.0 W45-W52 N12-N16
      9  932 1450 (N30W05 L=  7)   453    157        0 ( 850/1425- 999/1470) -36.9 W00-W09 N27-N33
     10 1328 1427 (N19W29 L= 31)   343    201        0 (1241/1379-1415/1455) -48.4 W24-W32 N13-N22
     11 1158 1382 (N21W17 L= 19)   253     66        1 (1124/1367-1191/1398) -45.0 W15-W18 N19-N22
     12  371 1139 (N25E40 L=322)   409     80        0 ( 342/1107- 406/1168) -45.0 E42-E37 N22-N26
     13  873  691 (S12E17 L=345)   296     67        1 ( 855/ 654- 896/ 721)  36.9 E18-E14 S13-S10
     14 1298  439 (S39W02 L=  4)  1290    294        4 (1203/ 339-1403/ 533)  21.3 E07-W11 S44-S34
     15 1471  281 (S61W16 L= 18)   625     75        0 (1432/ 259-1509/ 305)  -5.2 W10-W21 S62-S58
  

    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