Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  615 1624 (N46E33 L=305)   356     78        1 ( 578/1602- 657/1638)   8.1 E36-E29 N43-N46
      2 1336 1617 (N42W29 L=  8)   279     41        1 (1313/1597-1362/1633)  14.0 W27-W31 N40-N42
      3  544 1497 (N36E36 L=303)  1843    358        4 ( 437/1412- 644/1548) -20.9 E46-E25 N30-N39
      4 1638 1431 (N26W48 L= 27)   486     93        0 (1599/1386-1682/1455) -45.0 W44-W50 N22-N27
      5  955 1369 (N26E03 L=335)   967    329        2 ( 775/1321-1083/1415) -16.7 E15-W05 N22-N29
      6 1210 1235 (N17W13 L=351)   984    192        3 (1145/1159-1276/1305) -55.0 W08-W16 N11-N21
      7 1824 1246 (N12W62 L= 41)  1003    234        0 (1759/1176-1882/1295) -34.7 W55-W69 N07-N16
      8  498 1182 (N15E35 L=304)   543    207        1 ( 470/1088- 525/1276) -80.5 E37-E32 N09-N21
      9  281  908 (S02E53 L=285)   676    159        3 ( 238/ 882- 335/ 937)   5.7 E58-E48 S03-N00
     10 1627  875 (S08W40 L= 18)   794    185        1 (1571/ 824-1693/ 937) -35.0 W35-W45 S11-S03
     11 1215  782 (S11W11 L=350)   290     82        2 (1194/ 743-1238/ 830)  59.0 W09-W12 S13-S08
     12 1337  551 (S28W20 L=358)  2315    444        5 (1157/ 437-1494/ 707)  37.7 W07-W30 S35-S17
     13 1050  622 (S21E00 L=339)   640    180        1 ( 964/ 572-1120/ 673)  33.7 E05-W04 S24-S17
  

    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