Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1253 1627 (N43W06 L=318)   659    116        2 (1227/1578-1281/1675) -54.5 W03-W09 N39-N47
      2  345 1603 (N25E72 L=240)   792     76        0 ( 329/1567- 368/1637) -50.2 E76-E67 N22-N28
      3  679 1436 (N20E30 L=282)   281    113        1 ( 649/1393- 699/1473) -38.7 E32-E27 N17-N22
      4 1792 1297 (N29W57 L=  8)  1842    332        2 (1697/1185-1869/1427) -43.0 W47-W66 N22-N36
      5 1225 1227 (N15W09 L=321)   479    168        1 (1181/1171-1275/1298) -36.9 W05-W13 N12-N19
      6 1760 1245 (N25W51 L=  3)   533    123        2 (1716/1189-1793/1279) -35.5 W46-W55 N21-N26
      7 1360  819 (S07W24 L=336)   221    111        1 (1306/ 799-1402/ 843)  -8.1 W20-W27 S08-S06
      8 1488  688 (S13W36 L=348)   692    195        5 (1449/ 617-1524/ 777) -84.3 W33-W37 S17-S07
      9 1375  686 (S15W28 L=340)   858    247        0 (1305/ 610-1414/ 741)  90.0 W22-W30 S20-S11
     10 1560  628 (S16W43 L=355)   512    149        1 (1509/ 587-1614/ 670)  49.4 W39-W46 S19-S12
     11  747  603 (S31E12 L=300)  1339    410        2 ( 578/ 551- 939/ 659)  27.5 E25-W00 S37-S23
     12 1401  527 (S25W35 L=347)   295     89        2 (1362/ 514-1435/ 546)   0.0 W31-W37 S25-S23
     13 1584  386 (S31W62 L= 13)  3128    270        5 (1477/ 348-1686/ 455)  24.0 W50-W74 S35-S25
     14 1098  343 (S44W20 L=332)  1308    214        4 (1012/ 316-1215/ 373)  25.0 W13-W29 S47-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