Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  559 1739 (N24E56 L=303)   629    194        0 ( 513/1711- 605/1765)  -4.8 E62-E50 N22-N25
      2 1148 1218 (N08W01 L=  1)   297    110        0 (1112/1163-1167/1271) -82.9 W00-W02 N03-N11
      3  272 1184 (S16E54 L=305)   626    100        2 ( 255/1135- 294/1238) -56.3 E56-E50 S18-S12
      4 1402 1159 (N12W17 L= 16)   261     99        1 (1354/1140-1438/1193)  45.0 W14-W19 N09-N14
      5  735 1164 (S06E20 L=339)   289     80        1 ( 699/1128- 778/1189)  45.0 E21-E17 S08-S04
      6 1784 1092 (N21W46 L= 45)  1074    240        0 (1724/ 982-1832/1178) -26.6 W39-W53 N16-N24
      7  257 1060 (S23E52 L=307)   918    240        1 ( 193/1032- 335/1094)   0.0 E59-E44 S24-S21
      8 1098 1019 (S05W04 L=  3)   179     79        0 (1066/ 983-1125/1065) -31.0 W01-W06 S05-S02
      9  890  764 (S24E00 L=359)   353     78        0 ( 842/ 747- 929/ 788)  59.0 E02-W01 S26-S21
     10  978  592 (S32W11 L= 10)  1359    435        2 ( 789/ 512-1168/ 695)   3.9 E04-W25 S34-S28
     11 1697  487 (S13W65 L= 64)   871    123        2 (1660/ 450-1729/ 533)  80.5 W62-W68 S16-S10
     12 1603  377 (S22W63 L= 62)   481     62        0 (1577/ 364-1632/ 390)  36.9 W60-W65 S23-S20
     13 1281  325 (S37W44 L= 43)   536    137        1 (1217/ 308-1349/ 345)  35.5 W40-W47 S39-S34
  

    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