Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1654 1603 (N32W52 L=190)  2061    307        3 (1557/1547-1742/1641)  -6.7 W44-W61 N27-N34
      2  794 1594 (N35E13 L=124)   716    150        0 ( 718/1565- 860/1612)  -5.2 E19-E08 N33-N37
      3  385 1239 (N15E41 L= 96)   381     84        0 ( 357/1198- 408/1276) -56.3 E43-E39 N11-N17
      4  152 1199 (N14E65 L= 73)   625    178        0 ( 116/1184- 190/1214)  -5.7 E69-E59 N12-N15
      5 1021 1135 (N04W00 L=138)   352     80        1 ( 988/1083-1047/1173) -68.2 E01-W01 N01-N06
      6  328 1072 (N05E46 L= 91)   353     88        0 ( 311/1028- 352/1116) -59.0 E47-E43 N02-N07
      7 1534  974 (S07W32 L=169)   285     83        0 (1516/ 931-1551/1018) -71.6 W30-W32 S10-S04
      8 1374  965 (S07W21 L=158)   272    110        1 (1331/ 944-1427/ 999)  -9.5 W18-W24 S08-S05
      9  379  841 (S09E44 L= 94)   324    107        0 ( 334/ 824- 421/ 859)   0.0 E47-E40 S10-S08
     10 1759  688 (S26W52 L=189)   751     93        3 (1723/ 654-1795/ 718)  26.6 W48-W55 S27-S23
     11  308  656 (S20E54 L= 83)  1048    192        2 ( 249/ 566- 378/ 710) -48.4 E58-E49 S25-S15
     12  316  576 (S25E56 L= 81)   552    104        1 ( 278/ 541- 339/ 601) -53.1 E59-E53 S27-S23
     13  908  469 (S36E12 L=125)   289     69        0 ( 870/ 455- 951/ 483)   0.0 E15-E08 S37-S35
  

    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