Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  735 1740 (N39E31 L=237)   353     48        2 ( 711/1722- 762/1760) -14.0 E33-E28 N37-N41
      2  472 1467 (N18E41 L=226)   700    166        0 ( 422/1427- 520/1504) -29.1 E46-E36 N15-N20
      3 1216 1222 (N08W10 L=277)   183     74        2 (1196/1182-1235/1257)  78.7 W08-W10 N05-N10
      4  323 1002 (S11E47 L=221)  1070    263        6 ( 260/ 952- 382/1067)  31.0 E52-E41 S14-S07
      5  179  982 (S12E61 L=206)   412     80        2 ( 161/ 952- 199/1031)  78.7 E63-E58 S14-S09
      6  236  967 (S13E55 L=213)   725    112        4 ( 213/ 899- 267/1019)  60.3 E57-E51 S17-S10
      7  732  838 (S19E17 L=251)  1911    513        5 ( 654/ 590- 865/ 981)  62.5 E22-E09 S34-S09
      8  453  913 (S16E36 L=231)   407    106        4 ( 434/ 862- 474/ 969) -80.5 E37-E34 S18-S12
      9  360  909 (S17E44 L=224)   269     78        0 ( 323/ 882- 384/ 932) -21.8 E46-E41 S18-S15
     10  204  785 (S24E59 L=209)   734    166        1 ( 176/ 736- 245/ 823)  39.8 E62-E54 S27-S21
     11  307  727 (S28E50 L=218)   749    257        0 ( 266/ 642- 356/ 818)  45.0 E55-E44 S33-S22
     12 1013  754 (S21W02 L=270)   304    114        0 ( 973/ 701-1038/ 808)  76.0 W00-W03 S25-S17
     13 1431  639 (S24W31 L=299)   873    155        1 (1365/ 582-1505/ 707)  59.0 W27-W34 S28-S18
     14 1600  443 (S34W52 L=319)   369    127        0 (1545/ 429-1648/ 466)  20.6 W47-W55 S35-S31
  

    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