Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1682 1498 (N12W59 L=292)  2399    500        3 (1563/1459-1826/1532) -13.6 W47-W80 N06-N14
      2 1723 1400 (N05W57 L=290)   343     57        0 (1705/1375-1738/1434)  45.0 W54-W59 N04-N07
      3 1319 1390 (N17W28 L=261)   298     77        0 (1284/1368-1368/1421) -45.0 W26-W30 N15-N19
      4  672 1166 (N22E17 L=216)  3100    672        9 ( 401/1103- 991/1230) -27.2 E36-W01 N12-N31
      5  217 1082 (N28E55 L=179)   529     76        0 ( 200/1054- 244/1120) -13.8 E56-E51 N25-N30
      6 1347  938 (S08W16 L=249)   364     61        2 (1311/ 905-1385/ 969) -36.9 W13-W17 S10-S06
      7 1305  859 (S11W11 L=245)   574    168        5 (1253/ 820-1357/ 898) -56.3 W09-W14 S14-S08
      8 1169  837 (S09W03 L=237)   202     42        0 (1146/ 816-1198/ 867)   0.0 W01-W05 S10-S08
      9 1432  789 (S19W17 L=251)   249     86        0 (1391/ 762-1461/ 830)  18.4 W14-W20 S20-S17
     10 1316  656 (S24W07 L=240)   234     47        0 (1293/ 630-1340/ 675)   0.0 W05-W08 S25-S22
     11  961  456 (S26E21 L=213)  1078    299        2 ( 934/ 334- 990/ 577)  58.0 E26-E16 S34-S18
     12  756  385 (S25E37 L=197)   295    108        0 ( 735/ 347- 780/ 424)  29.7 E39-E32 S27-S23
     13  517  365 (S21E55 L=178)   468     81        0 ( 487/ 330- 544/ 401) -90.0 E56-E53 S24-S18
  

    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