Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  406 1511 (N17E50 L=346)  1880    291        7 ( 314/1436- 527/1579)  25.0 E56-E40 N11-N21
      2 1801 1465 (N35W57 L= 93)   508     49        1 (1777/1437-1821/1494)  39.8 W52-W62 N32-N37
      3  417 1427 (N12E46 L=350)  1135    167        4 ( 350/1373- 476/1484)  32.0 E50-E42 N08-N15
      4  244 1366 (N07E60 L=336)  3245    281       15 ( 177/1281- 319/1448) -57.5 E70-E52 N01-N12
      5  263 1086 (S10E52 L=344)   811    160        2 ( 229/1026- 300/1150) -63.4 E56-E49 S13-S05
      6  385 1039 (S12E41 L=355)   978    212        4 ( 320/ 968- 435/1133)  59.0 E46-E37 S16-S05
      7 1098 1088 (S01W03 L= 39)   213     83        0 (1089/1043-1108/1130)  90.0 W02-W04 S03-N01
      8 1947 1034 (N10W71 L=107)   938    103        2 (1920/ 978-1968/1080)  60.3 W66-W75 N06-N13
      9  788  710 (S27E11 L= 25)  2301    674        4 ( 533/ 622-1044/ 914)  35.7 E30-W02 S35-S12
     10  316  827 (S25E48 L=348)  2516    460        3 ( 140/ 761- 531/ 871)   5.6 E70-E29 S29-S21
     11  694  847 (S20E18 L= 18)   323    124        2 ( 622/ 832- 745/ 865)   6.3 E23-E14 S21-S18
     12 1189  716 (S22W15 L= 50)   730    204        1 (1167/ 628-1206/ 820) -67.4 W11-W17 S27-S15
     13 1645  617 (S20W49 L= 85)   814    233        1 (1598/ 560-1722/ 690)  54.5 W43-W55 S23-S16
     14 1410  641 (S23W31 L= 67)   406    104        1 (1359/ 614-1454/ 680)  33.7 W27-W33 S24-S19
     15 1221  372 (S43W28 L= 64)  2654    391        7 (1030/ 323-1400/ 431)   8.9 W11-W45 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