Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  966 1820 (N64W09 L=141)   363     60        1 ( 942/1798- 989/1838) -45.0 W05-W10 N61-N66
      2 1684 1536 (N29W63 L=196)  2163    209        4 (1637/1459-1729/1609)  59.0 W58-W74 N23-N33
      3 1370 1549 (N35W33 L=166)   629     95        1 (1335/1500-1404/1586)  32.0 W29-W37 N31-N37
      4  999 1395 (N29W02 L=135)   401    131        1 ( 975/1330-1040/1445) -76.0 W00-W04 N24-N32
      5  562 1305 (N27E30 L=103)  2281    458        2 ( 434/1186- 757/1363)  11.8 E40-E15 N19-N30
      6 1482 1274 (N16W33 L=166)   914    210        2 (1418/1210-1549/1336) -71.6 W28-W37 N11-N20
      7  236 1186 (N20E60 L= 73)   729    107        2 ( 207/1140- 266/1241)  56.3 E62-E56 N17-N23
      8  609 1081 (N12E26 L=107)   313     50        1 ( 583/1052- 641/1109)  45.0 E28-E23 N10-N13
      9 1749  837 (S15W50 L=183)   874    133        1 (1717/ 775-1778/ 884)  74.1 W47-W52 S18-S11
     10  407  719 (S09E45 L= 87)   734    163        0 ( 385/ 634- 432/ 775)  77.5 E47-E42 S14-S05
     11 1265  502 (S31W12 L=144)   381    108        0 (1215/ 488-1313/ 516)   0.0 W07-W15 S32-S29
     12  583  404 (S32E42 L= 91)   776    161        0 ( 556/ 345- 627/ 481)  79.7 E44-E39 S37-S26
     13 1013  426 (S34E07 L=125)   367    103        0 ( 963/ 412-1071/ 440) -23.2 E11-E03 S35-S32
     14 1366  275 (S53W24 L=157)   403     43        0 (1344/ 258-1393/ 299) -26.6 W20-W28 S55-S50
     15 1046  196 (S57E11 L=121)   681     93        0 ( 999/ 182-1101/ 210)  -5.2 E16-E05 S58-S54
  

    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