Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1245 1812 (N45W46 L=319)  2145    313        4 (1134/1744-1343/1889)   4.9 W31-W67 N41-N47
      2 1513 1419 (N14W40 L=313)  1336    243        2 (1412/1357-1630/1492) -50.2 W35-W46 N07-N20
      3  307 1465 (N47E50 L=223)   495     60        1 ( 276/1445- 346/1480)  -5.7 E54-E43 N45-N48
      4  527 1313 (N31E25 L=248)  1557    253        2 ( 413/1287- 656/1341) -20.2 E34-E15 N28-N35
      5 1029 1254 (N16W06 L=279)   436    212        0 ( 944/1210-1120/1304)   5.2 W00-W11 N15-N17
      6  781 1016 (N08E14 L=259)  1233    453        3 ( 632/ 975- 977/1066) -13.4 E23-E02 N03-N11
      7 1462  972 (S09W24 L=297)   585    108        1 (1425/ 915-1498/1032) -76.0 W22-W25 S13-S05
      8  438  998 (N14E36 L=237)   256     53        3 ( 409/ 976- 464/1017)   0.0 E38-E34 N12-N15
      9 1668  957 (S15W38 L=311)   329     44        0 (1648/ 927-1685/ 982) -76.0 W36-W39 S17-S13
     10  265  709 (N01E59 L=214)   742     83        3 ( 236/ 669- 300/ 748)  38.7 E62-E54 S01-N03
     11  667  635 (S11E30 L=243)   433     90        2 ( 630/ 596- 693/ 673)  78.7 E32-E28 S13-S08
     12  603  638 (S09E34 L=239)   251     62        0 ( 579/ 613- 624/ 664) -90.0 E35-E32 S10-S07
     13 1808  554 (S47W58 L=331)   646     45        0 (1774/ 537-1836/ 571) -13.2 W50-W67 S49-S45
     14 1352  530 (S33W09 L=282)   456     69        2 (1321/ 506-1389/ 554)  11.3 W06-W11 S35-S31
     15  354  503 (S12E60 L=213)   600     95        1 ( 312/ 471- 383/ 540)  18.4 E65-E55 S14-S10
     16  574  510 (S16E41 L=232)   253     48        0 ( 560/ 481- 590/ 540)  76.0 E42-E39 S18-S14
     17  409  383 (S21E64 L=209)  1631    249        5 ( 337/ 283- 476/ 466)  74.1 E70-E60 S28-S14
     18  778  355 (S30E35 L=238)  1268    222        3 ( 677/ 308- 845/ 426)  10.0 E44-E27 S33-S26
     19  774  169 (S45E53 L=220)  1634    132        2 ( 719/ 133- 818/ 221)  11.3 E65-E44 S47-S40
  

    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