Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1200 1350 (N23W16 L=256)   415    109        1 (1159/1301-1252/1404) -63.4 W13-W18 N19-N27
      2 1514 1250 (N13W35 L=275)   296    126        2 (1485/1202-1551/1291)  26.6 W32-W38 N10-N15
      3  703 1183 (N19E19 L=221)  1699    410        3 ( 513/1089- 879/1279) -30.3 E32-E07 N11-N26
      4  524 1043 (N12E32 L=208)   471    108        0 ( 474/1004- 557/1070) -26.6 E35-E29 N09-N13
      5  217  968 (N09E60 L=180)   420     71        2 ( 197/ 932- 232/ 994) -56.3 E62-E58 N07-N10
      6 1759  792 (S20W49 L=289)  2579    365        4 (1667/ 658-1824/ 935)  47.0 W41-W56 S27-S11
      7 1149  808 (S09W05 L=245)   404    133        2 (1096/ 788-1209/ 834)  -8.1 W01-W08 S10-S06
      8  813  810 (S05E16 L=225)   233     93        0 ( 772/ 785- 860/ 832)   9.5 E18-E12 S05-S03
      9 1190  738 (S14W07 L=247)   842    344        1 (1045/ 643-1289/ 830)  26.6 E03-W13 S18-S08
     10  855  713 (S11E14 L=226)   487    209        5 ( 780/ 661- 914/ 780) -58.0 E18-E10 S14-S06
     11  257  615 (S13E65 L=175)   827    125        1 ( 237/ 580- 283/ 665)  56.3 E67-E62 S15-S09
     12 1450  617 (S26W24 L=264)   302     56        1 (1427/ 596-1472/ 646)  14.0 W21-W25 S27-S23
     13 1569  585 (S30W33 L=273)   312     48        0 (1541/ 563-1591/ 609)  36.9 W30-W35 S31-S28
  

    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