Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  995 1884 (N70E16 L=128)   778     75        2 ( 962/1860-1032/1903)  29.1 E21-E09 N65-N73
      2  802 1593 (N39E21 L=123)   399    117        1 ( 767/1541- 834/1638) -41.2 E25-E17 N35-N42
      3 1697 1518 (N37W59 L=203)  1574    176        2 (1633/1480-1765/1548)   2.7 W48-W69 N34-N39
      4 1466 1481 (N34W32 L=176)   553    130        1 (1418/1439-1506/1514)  -7.1 W27-W35 N30-N36
      5  505 1420 (N25E40 L=103)   312     45        1 ( 478/1400- 534/1440)  36.9 E42-E37 N23-N26
      6 1593 1360 (N26W40 L=184)   601     84        1 (1556/1324-1630/1395) -38.7 W37-W43 N23-N28
      7 1342 1364 (N25W20 L=164)   243     70        0 (1309/1344-1373/1382)   0.0 W18-W22 N24-N26
      8 1835 1182 (N14W63 L=206)   535     91        1 (1816/1133-1851/1225) -80.5 W60-W64 N11-N17
      9 1266 1017 (N03W15 L=159)   198     57        1 (1233/1003-1289/1036)  33.7 W13-W16 N02-N04
     10  492  889 (S08E34 L=109)   240     73        0 ( 457/ 859- 525/ 914)  38.7 E37-E32 S10-S06
     11 1750  854 (S06W53 L=196)   531     48        1 (1723/ 828-1776/ 877)  11.3 W50-W55 S07-S04
     12  430  716 (S20E41 L=103)   708    123        1 ( 382/ 693- 486/ 747)  -6.3 E44-E35 S21-S17
     13  214  700 (S23E67 L= 77)  1415    120        1 ( 180/ 645- 255/ 745)  18.4 E82-E58 S27-S19
     14  805  479 (S34E14 L=130)   588     72        1 ( 766/ 448- 847/ 512) -33.7 E16-E10 S36-S31
     15 1056  493 (S32W05 L=149)   296     87        0 (1013/ 480-1105/ 511)  -8.1 W01-W08 S32-S30
  

    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