Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1634 1603 (N26W64 L= 77)  1094    130        0 (1579/1572-1682/1639) -50.2 W59-W71 N23-N29
      2  597 1440 (N41E23 L=350)  1158    227        0 ( 533/1393- 699/1516) -40.6 E28-E14 N35-N47
      3 1268 1320 (N19W21 L= 35)   273     99        0 (1254/1268-1284/1367)  63.4 W20-W23 N15-N21
      4  165 1286 (N36E74 L=299)  1321    102        1 ( 136/1245- 199/1333) -17.4 E86-E65 N33-N38
      5  288 1119 (N24E51 L=322)   503     95        2 ( 268/1076- 310/1166) -71.6 E53-E49 N21-N27
      6  220  989 (N17E60 L=313)   643    158        0 ( 179/ 929- 247/1022) -45.0 E65-E56 N13-N19
      7  387  915 (N11E44 L=329)   360    104        1 ( 355/ 878- 435/ 936)   7.1 E47-E39 N09-N12
      8  355  595 (S08E56 L=317)  1087    203        0 ( 311/ 527- 391/ 661) -83.7 E59-E53 S12-S03
      9  592  621 (S10E35 L=338)   469    105        1 ( 553/ 580- 627/ 648)  26.6 E39-E32 S11-S07
     10  424  536 (S13E52 L=321)   464     96        1 ( 408/ 491- 437/ 584)  63.4 E54-E49 S15-S09
     11  600  492 (S18E40 L=334)  1302    357        4 ( 481/ 429- 722/ 574) -45.0 E46-E31 S23-S11
     12  946  520 (S22E16 L=358)   284    117        0 ( 910/ 504- 999/ 559) -45.0 E17-E12 S24-S18
     13 1575  494 (S40W30 L= 43)   589     84        0 (1547/ 471-1601/ 530) -71.6 W26-W32 S42-S36
     14 1266  410 (S38W03 L= 16)   304     58        0 (1247/ 385-1291/ 444)  36.9 W01-W05 S39-S35
     15 1101  386 (S35E10 L=  4)   250     79        1 (1061/ 370-1129/ 410)   9.5 E12-E06 S36-S33
  

    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