Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  783 1808 (N35E44 L= 86)   447     40        1 ( 761/1783- 806/1832)   0.0 E47-E41 N33-N37
      2  484 1753 (N25E67 L= 64)   639     57        1 ( 458/1729- 507/1769) -13.0 E73-E60 N23-N26
      3  772 1631 (N22E33 L= 98)  1036    176        2 ( 748/1560- 816/1728) -54.0 E39-E27 N17-N28
      4  416 1591 (N13E58 L= 72)  1051    315        4 ( 350/1487- 490/1673)  90.0 E61-E54 N05-N19
      5 1052 1503 (N21E11 L=119)   783    286        0 (1025/1392-1094/1629) -69.4 E14-E07 N14-N30
      6 1173 1495 (N24E04 L=127)  1028    274        3 (1139/1365-1205/1609) -65.0 E09-W00 N15-N30
      7 1801  957 (N11W52 L=182)   547    136        0 (1786/ 889-1812/1026) -69.4 W50-W53 N07-N15
      8  614  793 (S30E20 L=111)   847    308        1 ( 482/ 753- 746/ 822)  11.3 E30-E10 S32-S28
      9  651  648 (S38E14 L=116)   782    197        1 ( 541/ 627- 747/ 674)  23.6 E23-E07 S42-S35
     10  928  602 (S34W06 L=137)   466    121        0 ( 908/ 539- 945/ 658) -45.0 W03-W09 S37-S30
     11 1708  540 (S13W63 L=193)   689    123        0 (1664/ 500-1754/ 585)  60.3 W59-W64 S16-S09
     12 1011  514 (S37W15 L=145)   747    154        1 ( 942/ 492-1079/ 539)  32.0 W10-W18 S38-S33
     13 1229  474 (S32W31 L=161)   247     87        0 (1182/ 454-1264/ 496)   8.1 W26-W33 S32-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