Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  793 1541 (N29E16 L=  3)   791    204        2 ( 714/1469- 873/1596) -36.9 E21-E09 N24-N33
      2 1508 1356 (N17W32 L= 50)   263     74        0 (1479/1323-1535/1378)  45.0 W29-W33 N14-N18
      3  152 1306 (N16E67 L=311)   835     92        1 ( 134/1267- 172/1349)  90.0 E69-E65 N14-N19
      4  469 1068 (N00E35 L=344)   462    145        1 ( 411/1040- 526/1099)  -7.1 E39-E31 S01-N02
      5  453  889 (S10E37 L=342)   918    214        3 ( 431/ 779- 477/ 999)  77.0 E39-E34 S16-S03
      6 1827  890 (S10W57 L= 76)   388     59        1 (1810/ 865-1850/ 915)  26.6 W55-W59 S11-S08
      7  301  859 (S12E50 L=329)   284     50        1 ( 277/ 834- 325/ 881)  14.0 E52-E47 S13-S10
      8  225  790 (S15E59 L=320)  1574    246        7 ( 185/ 732- 260/ 863) -76.0 E62-E55 S18-S10
      9 1428  824 (S15W25 L= 44)   337    103        0 (1367/ 805-1469/ 852)   8.1 W21-W28 S16-S13
     10 1740  715 (S21W51 L= 70)   500    121        1 (1695/ 659-1773/ 772)  60.3 W48-W53 S24-S17
     11  805  672 (S24E15 L=  4)   421     76        1 ( 786/ 634- 834/ 721)  78.7 E15-E12 S26-S21
     12 1128  642 (S27W07 L= 25)   276     87        0 (1103/ 605-1143/ 693)  80.5 W05-W07 S29-S23
     13  288  602 (S27E57 L=322)   484     85        1 ( 272/ 567- 309/ 639)  78.7 E58-E54 S29-S24
     14  510  569 (S30E38 L=341)   542    142        0 ( 470/ 527- 545/ 621)  32.0 E41-E33 S33-S27
     15  264  538 (S31E62 L=317)   517    106        0 ( 243/ 512- 289/ 559)   9.5 E64-E58 S32-S29
  

    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