Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  469 1656 (N42E52 L=346)   458     51        0 ( 450/1628- 488/1680) -76.0 E54-E50 N39-N43
      2  702 1519 (N33E26 L= 12)   718    178        0 ( 638/1467- 759/1567) -26.6 E32-E20 N29-N36
      3 1247 1325 (N22W14 L= 52)  1701    362        2 (1075/1227-1417/1432) -25.6 W02-W25 N16-N28
      4  332 1351 (N20E52 L=346)   939    158        1 ( 310/1283- 354/1429) -71.6 E55-E49 N15-N24
      5  753 1389 (N25E20 L= 18)   407     82        1 ( 725/1363- 793/1424)  36.9 E21-E17 N22-N26
      6  935 1270 (N18E07 L= 32)   743    183        1 ( 879/1196-1007/1349) -45.0 E10-E01 N13-N22
      7  430 1314 (N18E43 L=355)   308     72        0 ( 398/1289- 466/1335)  31.0 E45-E40 N16-N19
      8  783 1231 (N15E16 L= 22)   551    150        2 ( 737/1159- 815/1290) -69.4 E19-E13 N10-N18
      9  531 1135 (N08E32 L=  6)   992    202        2 ( 492/1041- 593/1233) -54.0 E36-E27 N02-N13
     10  708 1061 (N04E20 L= 18)   262     86        1 ( 662/1045- 749/1081)  21.8 E22-E17 N02-N05
     11  445  963 (S03E38 L=  0)   318    107        1 ( 398/ 950- 492/ 978)   0.0 E41-E34 S04-S02
     12 1048  498 (S31W04 L= 42)   226     56        0 (1024/ 475-1070/ 520) -36.9 W01-W05 S32-S29
     13 1220  256 (S51W24 L= 62)   630    148        0 (1170/ 220-1256/ 284) -30.3 W17-W29 S55-S48
  

    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