Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  468 1588 (N13E52 L=275)   335     68        1 ( 443/1568- 498/1613)  63.4 E54-E50 N11-N15
      2  307 1555 (N09E67 L=260)  1747    294        7 ( 258/1522- 364/1593)   4.1 E75-E60 N06-N11
      3  661 1544 (N14E36 L=291)   247     48        0 ( 637/1522- 682/1566) -26.6 E38-E34 N12-N15
      4  741 1396 (N07E26 L=301)   246     25        1 ( 725/1373- 764/1419) -71.6 E27-E24 N05-N08
      5  182 1185 (S15E63 L=264)  1053    194        3 ( 129/1149- 226/1236)  24.0 E69-E58 S17-S12
      6  635 1159 (S09E26 L=301)   312     78        2 ( 614/1128- 657/1192) -45.0 E27-E24 S10-S06
      7  363 1074 (S19E43 L=284)   907    291        1 ( 261/1013- 454/1141)  -9.5 E53-E34 S21-S16
      8  193 1018 (S25E58 L=269)   757    196        0 ( 150/ 949- 240/1083)  56.3 E61-E54 S29-S20
      9  529 1035 (S18E30 L=297)   228     76        0 ( 493/1010- 561/1065)  45.0 E32-E28 S19-S15
     10  588  972 (S20E25 L=302)   612    158        0 ( 512/ 954- 659/ 994)  16.7 E29-E19 S23-S18
     11  448  769 (S36E32 L=295)   318    103        0 ( 404/ 747- 496/ 792)   0.0 E35-E27 S36-S34
     12 1350  742 (S14W26 L=353)   238     80        0 (1333/ 699-1372/ 779) -53.1 W25-W28 S15-S11
     13 1389  403 (S31W44 L= 11)  2642    598        3 (1159/ 351-1605/ 459)  19.4 W27-W61 S35-S23
  

    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