Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  452 1514 (N17E46 L=350)  2291    368        7 ( 322/1437- 604/1573)  21.8 E55-E34 N11-N21
      2  603 1470 (N16E33 L=  3)   381     84        2 ( 560/1452- 647/1493)   9.5 E35-E29 N14-N17
      3  429 1429 (N12E45 L=351)  1027    144        1 ( 368/1376- 482/1481)  35.5 E49-E41 N08-N15
      4  219 1373 (N08E64 L=332)  1711    189        7 ( 180/1292- 254/1444)  90.0 E69-E58 N02-N12
      5  279 1357 (N07E56 L=339)  1227    183        4 ( 246/1271- 324/1418) -48.4 E61-E52 N01-N10
      6  271 1095 (S09E52 L=344)   521     84        0 ( 235/1048- 294/1142) -51.3 E55-E49 S11-S06
      7 1108 1089 (S01W04 L= 39)   231     82        0 (1098/1047-1119/1137) -76.0 W03-W04 S03-N01
      8  391 1043 (S11E41 L=354)   909    213        4 ( 328/ 972- 442/1136)  59.0 E45-E37 S15-S05
      9  797  709 (S27E10 L= 25)  2297    650        3 ( 553/ 617-1048/ 912)  36.3 E28-W02 S35-S12
     10  394  831 (S24E40 L=355)  2897    693        4 ( 144/ 760- 742/ 869)   6.3 E69-E15 S29-S18
     11 1196  717 (S22W15 L= 50)   696    199        0 (1174/ 624-1216/ 817) -71.6 W11-W17 S27-S15
     12 1649  616 (S20W50 L= 85)   828    226        2 (1604/ 562-1726/ 688)  54.5 W43-W55 S23-S16
     13 1416  639 (S23W31 L= 67)   389    108        0 (1364/ 612-1450/ 680)  45.0 W28-W33 S24-S19
     14 1230  370 (S43W29 L= 64)  2619    376        9 (1053/ 320-1402/ 430)   7.4 W13-W46 S45-S39
  

    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