Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1069 1615 (N30E08 L=284)   568    131        1 (1023/1554-1112/1663)  71.6 E09-E05 N25-N34
      2  445 1558 (N18E49 L=242)  1203    149        2 ( 373/1530- 521/1577)   4.1 E56-E42 N15-N19
      3 1014 1457 (N19E08 L=284)   229     61        0 ( 996/1429-1036/1490) -56.3 E09-E05 N17-N20
      4 1500 1335 (N20W24 L=316)   314     94        1 (1473/1291-1537/1368) -31.0 W22-W27 N18-N22
      5 1667 1232 (N17W38 L=329)   568    182        0 (1587/1209-1747/1251)  13.0 W31-W44 N16-N19
      6  774 1210 (N00E17 L=274)   396    154        0 ( 689/1188- 838/1240)  -5.7 E23-E13 N00-N01
      7 1872 1048 (N11W59 L=350)  7215      0       20 (1781/ 846-1956/1185) -54.8 W48-W72 N00-N20
      8 1729 1072 (N09W44 L=336)   784    126        2 (1681/1027-1776/1144)  66.0 W40-W48 N05-N14
      9 1722  943 (N02W46 L=338)   491    100        2 (1697/ 905-1757/ 995) -38.7 W43-W49 N00-N04
     10  809  814 (S22E10 L=282)   262     78        0 ( 781/ 781- 838/ 849)  68.2 E11-E08 S24-S19
     11  990  706 (S26W03 L=295)  1313    431        1 ( 817/ 659-1209/ 748)  18.4 E07-W17 S31-S22
     12 1591  500 (S26W52 L=343)  3610    473        5 (1460/ 420-1744/ 620)  -1.5 W38-W76 S29-S19
     13  877  554 (S37E01 L=290)   401    161        0 ( 805/ 528- 943/ 603)  -5.7 E07-W03 S38-S34
     14  824  448 (S45E03 L=288)  1237    337        2 ( 676/ 412- 977/ 509)  -2.3 E16-W09 S47-S42
     15 1180  372 (S43W27 L=319)  1035    270        2 (1079/ 327-1311/ 429)  -2.4 W16-W40 S45-S41
  

    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