Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1330 1861 (N46W61 L=308)   488     41        0 (1315/1835-1350/1883)  15.3 W56-W67 N43-N47
      2 1428 1685 (N31W48 L=295)   855    112        1 (1383/1658-1487/1718) -45.0 W45-W52 N28-N34
      3  522 1548 (N47E25 L=222)   396     53        0 ( 494/1523- 556/1566)   9.5 E27-E21 N45-N48
      4 1397 1525 (N23W36 L=284)   641    133        2 (1350/1482-1443/1562) -71.6 W32-W38 N19-N25
      5  383 1521 (N49E41 L=206)   626     70        1 ( 357/1484- 416/1559)  38.7 E44-E37 N46-N51
      6 1772 1523 (N13W69 L=316)   626     53        1 (1743/1496-1803/1544)   0.0 W63-W75 N11-N13
      7 1291 1500 (N24W29 L=276)   342     64        1 (1263/1467-1325/1524) -33.7 W26-W30 N21-N25
      8  891 1456 (N31W02 L=249)  1151    298        3 ( 738/1436-1027/1476) -17.5 E08-W11 N28-N34
      9 1408 1420 (N16W33 L=280)   390    164        0 (1329/1392-1465/1465)   0.0 W27-W38 N15-N17
     10 1175 1190 (N09W12 L=259)  1173    342        2 (1055/1150-1333/1236) -16.4 W04-W21 N04-N12
     11 1790 1093 (S11W51 L=298)   609     84        0 (1764/1051-1815/1144) -80.5 W49-W53 S13-S07
     12  318 1007 (N17E46 L=201)  1073    227        4 ( 238/ 933- 397/1062) -34.7 E53-E40 N11-N20
     13  543  808 (N01E33 L=214)   289     75        0 ( 523/ 768- 559/ 852)  56.3 E35-E31 N00-N03
     14 1042  792 (S10E04 L=243)   581    115        3 ( 989/ 744-1085/ 833)   9.5 E07-E01 S13-S08
     15  665  671 (S09E29 L=218)   253     65        1 ( 646/ 633- 680/ 705)  53.1 E30-E27 S11-S06
     16 1652  653 (S34W34 L=281)   627    107        2 (1601/ 621-1696/ 696)  14.0 W29-W38 S35-S31
     17 1010  656 (S17E09 L=238)   469    123        0 ( 969/ 627-1062/ 684) -51.3 E12-E06 S20-S15
     18  632  597 (S13E34 L=213)   331    101        2 ( 582/ 564- 684/ 620)  -8.1 E36-E29 S14-S11
     19  518  572 (S12E42 L=205)   310     90        0 ( 497/ 536- 547/ 606) -78.7 E43-E40 S14-S09
     20  399  577 (S09E52 L=196)   348     56        2 ( 382/ 543- 420/ 603)  63.4 E54-E49 S11-S07
     21  565  340 (S27E52 L=195)  2122    305        6 ( 459/ 287- 706/ 420)   5.2 E69-E36 S29-S24
     22  967  236 (S45E30 L=217)  1513    186        2 ( 887/ 190-1048/ 293)   6.3 E39-E20 S47-S41
  

    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