Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1432 1468 (N18W38 L=327)   233     93        1 (1398/1442-1459/1500)   9.5 W34-W40 N16-N19
      2 1789 1381 (N02W63 L=352)   575    164        0 (1747/1366-1828/1397) -10.3 W57-W68 N00-N03
      3 1219 1341 (N17W20 L=309)   275     82        1 (1180/1320-1271/1362) -45.0 W17-W22 N14-N19
      4 1243 1147 (N06W15 L=305)   979    265        4 (1119/1070-1364/1182) -19.7 W08-W22 N00-N10
      5  828 1073 (N13E10 L=280)   452    182        3 ( 740/1010- 910/1111)   0.0 E16-E04 N11-N14
      6 1611 1029 (S11W35 L=324)   345    138        2 (1570/ 981-1649/1094)  20.6 W30-W39 S13-S08
      7  187  877 (N16E62 L=227)  2623    531        4 (  85/ 830- 319/ 934) -15.6 E75-E50 N11-N20
      8 1351  652 (S25W09 L=298)  1466    287        4 (1283/ 496-1414/ 798)  43.2 W00-W16 S33-S17
      9  491  618 (S04E44 L=246)   868    289        9 ( 404/ 576- 600/ 661) -33.7 E49-E37 S08-N00
     10  663  584 (S10E33 L=256)   246     93        2 ( 649/ 554- 685/ 618)  56.3 E35-E32 S12-S08
     11  745  511 (S17E31 L=258)   283     46        0 ( 718/ 495- 772/ 528) -33.7 E32-E29 S17-S15
     12  604  415 (S19E45 L=244)   372     79        1 ( 568/ 398- 644/ 433) -36.9 E47-E42 S20-S17
     13  592  349 (S23E50 L=240)   353     57        1 ( 566/ 329- 621/ 365) -63.4 E51-E47 S25-S21
  

    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