Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  630 1757 (N69E10 L=104)  1388    189        4 ( 543/1698- 701/1808)   5.9 E26-W04 N65-N72
      2 1656 1645 (N21W72 L=185)   993    142        0 (1603/1595-1700/1698) -90.0 W69-W74 N17-N25
      3 1537 1524 (N20W49 L=163)  1004    322        3 (1405/1462-1664/1569) -40.9 W41-W56 N12-N25
      4  442 1342 (N40E34 L= 80)   574    109        2 ( 403/1299- 483/1375) -45.0 E37-E29 N36-N43
      5  584 1137 (N24E24 L= 90)   274    100        0 ( 538/1128- 645/1149) -15.9 E27-E20 N22-N25
      6  134  980 (N23E73 L= 41)  1071    111        1 ( 112/ 928- 164/1027)  26.6 E78-E66 N19-N25
      7 1328  897 (S08W14 L=128)   199     84        1 (1308/ 864-1346/ 945)  45.0 W11-W15 S09-S05
      8 1474  874 (S13W22 L=136)   570    150        1 (1443/ 796-1495/ 940)  63.4 W20-W25 S18-S10
      9  708  783 (N01E24 L= 90)   209     38        1 ( 690/ 759- 727/ 809) -90.0 E25-E23 N00-N02
     10 1709  695 (S33W38 L=152)   721     93        1 (1684/ 648-1725/ 746)  80.5 W35-W39 S36-S29
     11 1035  713 (S11E07 L=107)   234     76        0 (1011/ 669-1058/ 739)  36.9 E09-E05 S12-S09
     12  900  668 (S10E16 L= 98)   248     71        0 ( 887/ 630- 915/ 710)  68.2 E17-E14 S12-S07
     13  610  531 (S12E39 L= 75)   727    291        3 ( 495/ 459- 716/ 621) -60.3 E43-E34 S18-S04
  

    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